*******************************************************
* Figure S1
*******************************************************

* CROSS-SECTIONAL RATE
use village-cross-sectional.dta, clear

* drop villages with no diffusion information
drop if village==10
drop if village==28
drop if village==37
drop if village==41
drop if village==66
drop if village==77

corr mf hh_lend /*r=-.32*/
set scheme sj

twoway (lfitci mf hh_lend, clpattern(solid) lcolor(blue) ciplot(rscatter) mcolor(brown) msymbol(p) msize(small)) (scatter mf hh_lend, msymbol(smplus) mcolor(sienna)), ytitle(Microfinance Diffusion) xtitle(Leader households that lent money) legend(off) graphregion(color(white)) text(.41 .15 "Pearson r = -0.32", place(e))
graph set eps fontface Helvetica;
graph export SUPP-Figure-S1.pdf, replace
